home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS210.dsk / F0.SYS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  27 lines
  1. 1  POKE  -16304,0: POKE  -16297,0: POKE  -16302,0
  2. 5  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>       <CTRL-M>*** <CTRL-J>
  3. 10  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>        <CTRL-M>*** FAIL0<CTRL-J>
  4. 20 Q$ =  CHR$(34):D$ =  CHR$(4):CL% = 948:KY% = 962:HI% = 772:TE% = 781:UN% = 25345:X% = 768:Y% = 769: DEF  FN C(QZ) =  INT(QZ/2) - INT( LEN(A$)/2)
  5. 30  CALL TE%:A$ = "GUEST REGISTER": PRINT D$"OPEN"A$: PRINT D$"READ"A$: INPUT BVG%: INPUT FI$: INPUT LA$: PRINT D$"CLOSE": CALL HI%
  6. 40  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>        <CTRL-M>*** START UP<CTRL-J>
  7. 50 B$ = D$ +"BLOAD":A$ = "CELL0": GOSUB 1000: POKE Y%,0
  8. 60  POKE X%,0: PRINT " The DNA is confined to the nucleus of  the cell. But, protein is synthesized   out at a ribosome."
  9. 70  PRINT : PRINT " Therefore, some way is needed to get   the information to the ribosome."
  10. 80 A$ = "Press any key.": POKE X%,20 + FN C(20): POKE Y%,23 *7: PRINT A$: CALL KY%
  11. 90 A$ = "DNA2": GOSUB 1000
  12. 100  POKE X%,0: POKE Y%,25: PRINT " Messenger RNA carries the": PRINT "code to the ribosome."
  13. 110  PRINT : PRINT " In RNA, T is replaced with": PRINT "U.": PRINT : PRINT " Unlike DNA, RNA usually": PRINT "has only one 'side'."
  14. 120  POKE Y%,23 *7:A$ = "Press any key.": POKE X%, FN C(24): PRINT A$: CALL KY%
  15. 130 A$ = "DNA4": GOSUB 1000: POKE Y%,10: POKE X%,0
  16. 140  PRINT " To transcribe its data": PRINT "into a template (a strand": PRINT "of messenger RNA), it": PRINT "exposes its bases."
  17. 150 A$ = "Press any key.": POKE X%, FN C(20): POKE Y%,23 *7: PRINT A$: CALL KY%:A$ = "DNA5": GOSUB 1000
  18. 160  POKE Y%,21 *7: PRINT " Then, loose RNA bases line up with the exposed ones..."
  19. 170  PRINT B$"P1L,A$9000": PRINT B$"BASES": PRINT D$"BRUNANIM"
  20. 180  POKE Y%,21 *7: PRINT  SPC( 80): POKE Y%,20
  21. 190  PRINT " This newly formed": PRINT "template then leaves the": PRINT "DNA strand and heads for": PRINT "the ribosome.":A$ = "Press any key."
  22. 200  PRINT : PRINT : POKE X%, FN C(20): PRINT A$: CALL KY%
  23. 210  CALL 33927: POKE 768,0: PRINT D$"RUNTIMEQZ.SYS"
  24. 999  END 
  25. 1000  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>          <CTRL-M>*** LOAD IN PACKED PIC<CTRL-J>
  26. 1010  PRINT D$"BLOAD"A$".PAC,A$63B8": CALL UN%
  27. 1020  RETURN